function ValueResult=checkAuthorsEditorsNature5(ValueAuthor,VecGroupCoAuthors,VecSpecialCharacters,ValueFilter)

VecTemp=VecGroupCoAuthors;
n4=1;
% n41=2;
TestTemp=0;
n5=size(VecTemp,1);
% if ValueFilter==0
%     n5=size(VecTemp,1);
% else
%     if size(VecTemp,1)>=1
%         n5=1;
%     else
%         n5=0;
%     end
% end
while n4<=n5&&TestTemp==0
    n41=2;
    while n41<=VecTemp{n4,1}+1&&TestTemp==0
        ValueTemp2=VecTemp{n4,n41};
        if size(ValueTemp2,2)>=1&&size(ValueTemp2,2)==size(ValueAuthor,2)
            if strcmps(ValueTemp2,ValueAuthor,VecSpecialCharacters)>=0.99
                TestTemp=n4;
            end
        end
        n41=n41+1;
    end
    n4=n4+1;
end
ValueResult=TestTemp;
            

